R/tSNE dim3.R

In akonturek/MyFirstPackage: Test functions RII course

#'Calculate a tSNE over 3 dims using the variable genes only
#'@param sco An scell S4 object
#'@export CalcTSNE

CalcTSNE <- function(sco){
  var.data <- sco@data[sco@var.genes,]

  tsne.out <- Rtsne(var.data, dim=3) # make sure that in the description you have Rtsne, ensure that within the class you can create tsne (add into scell script)
  sco@tsne <- tsne.out$Y
  sco

}